unit crd_Property;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, shbl_Card, PropFilerEh, PropStorageEh, ActnList, Menus,
  StdCtrls, Buttons, ExtCtrls, Mask, DBCtrlsEh, DBGridEh, DBCtrls,
  DBLookupEh;

type
  TcrdProperty = class(TshblCard)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    DBEditEh1: TDBEditEh;
    DBEditEh7: TDBEditEh;
    DBEditEh2: TDBEditEh;
    Label5: TLabel;
    Label1: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    DBEditEh3: TDBEditEh;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    DBLookupComboboxEh1: TDBLookupComboboxEh;
    DBEditEh4: TDBEditEh;
    Panel2: TPanel;
    DBMemo1: TDBMemo;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  crdProperty: TcrdProperty;

implementation

uses crd_Debtor, MAIN_DM;

{$R *.dfm}

procedure TcrdProperty.FormCreate(Sender: TObject);
begin
  if not MAINDM.dsPropTypes.Active then MAINDM.dsPropTypes.Open; 
  inherited;
end;

end.
